store space(1) to kode1,kode2
kode3=spac(2)
store space(24) to main,sub,short
descr=spac(58)
perf=spac(8)
store .f. to helt,meds
store 0 to pric,cost,perc
meth=spac(11)
store space(3) to cSunpcc
store space(25) to cSunpcn
